home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / debug / memmon.dir / 00058.ls < prev    next >
Encoding:
Text File  |  1995-02-15  |  1.1 KB  |  45 lines
  1. on DoDelay delay
  2.   set startTime to the ticks
  3.   set gDelayTime to delay * 60
  4.   repeat while the ticks < (startTime + gDelayTime)
  5.   end repeat
  6. end
  7.  
  8. on ExpandWindow
  9.   set wind to getAt(the windowList, 1)
  10.   set leftSide to getAt(the rect of wind, 1)
  11.   set topSide to getAt(the rect of wind, 2)
  12.   set rightSide to getAt(the rect of wind, 3)
  13.   set bottomSide to getAt(the rect of wind, 4)
  14.   set the rect of wind to rect(leftSide, topSide, leftSide + 160, bottomSide)
  15. end
  16.  
  17. on HandleButtons
  18.   set the ink of sprite 12 to 0
  19.   set the ink of sprite 13 to 0
  20.   set the ink of sprite 14 to 0
  21.   set the ink of sprite 15 to 0
  22.   set the ink of sprite 16 to 0
  23.   set the ink of sprite 17 to 0
  24.   if the colorDepth = 8 then
  25.     set the ink of sprite 15 to 34
  26.   else
  27.     if the colorDepth = 16 then
  28.       set the ink of sprite 16 to 34
  29.     else
  30.       if the colorDepth = 32 then
  31.         set the ink of sprite 17 to 34
  32.       else
  33.         if the colorDepth = 2 then
  34.           set the ink of sprite 14 to 4
  35.         else
  36.           if the colorDepth = 1 then
  37.             set the ink of sprite 13 to 4
  38.           end if
  39.         end if
  40.       end if
  41.     end if
  42.   end if
  43.   updateStage()
  44. end
  45.